home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 25 / Mac Magazin and MacEasy Magazine CD - Issue 25.iso / Spiele & Edutainment / Abuse Demo / lisp / jugger.lsp < prev    next >
Lisp/Scheme  |  1996-08-01  |  9KB  |  307 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4. (defun jug_ai ()
  5.   (if (<= (hp) 0)
  6.       (if (eq (state) dieing)          
  7.       (if (not (next_picture))
  8.               (progn
  9.                 (with_object (bg) (set_kills (+ (kills) 1)))
  10.                 nil)
  11.             T)
  12.     (set_state dieing))
  13.     (if (activated)
  14.     (progn       
  15.       (set_targetable T)
  16.       (push_char 35 40)
  17.       (select (aistate) 
  18.           (0 ;; prepare to walk toward player
  19.            (if (eq stationary 0)
  20.                (progn
  21.              (set_state running)
  22.              (go_state 1))
  23.              (if (> (state_time) (aitype))
  24.              (progn
  25.                (set_state weapon_fire)
  26.                (set_aistate 2)))))
  27.  
  28.           (1 ;; walk toward player
  29.            (if (eq stationary 0)
  30.                (progn
  31.              (set_direction (toward))
  32.              (let ((curx (x));; save position in case we fall off a cliff
  33.                    (cury (y)))             
  34.                (if (next_picture) 
  35.                    (if (eq (current_frame) 8)
  36.                    (play_sound JSTOMP_SND 127 (x) (y)))
  37.                  (progn
  38.                    (play_sound JSTOMP_SND 127 (x) (y))
  39.                    (set_state weapon_fire)
  40.                    (set_aistate 2)))
  41.                (if (can_see (x) (y) (x) (+ (y) 5) nil)
  42.                    (progn
  43.                  (set_x curx)
  44.                  (set_y cury)
  45.                  (try_move 0 10)))))
  46.              (if (> (state_time) (aitype))
  47.              (progn
  48.                (set_state weapon_fire)
  49.                (set_aistate 2)))))
  50.  
  51.           (2 ;; start fire
  52.            (if (> (state_time) 3)
  53.                (let ((myself (me))
  54.                  (xspeed (* throw_xvel (direction)))
  55.                  (yspeed throw_yvel))
  56.              (with_object (add_object GRENADE (x) (- (y) 24) 1) 
  57.                       (progn
  58.                     (user_fun myself)
  59.                     (set_xvel xspeed)
  60.                     (set_yvel yspeed)))
  61.              (go_state 3))
  62.              (next_picture)))
  63.           (3 ;; wait for fire animation
  64.            (if (next_picture) nil (set_aistate 0))))
  65.       T) 
  66.       (progn (set_targetable nil)
  67.          T))))
  68.        
  69. (defun jug_cons ()
  70.   (setq throw_xvel 13)
  71.   (setq throw_yvel -10)
  72.   (set_aitype 10))
  73.  
  74. (defun explo_damage_cache (type)
  75.   (list (list EXPLODE6) nil))
  76.  
  77. (def_char JUGGER
  78.   (range 200 0)
  79.   (funs (ai_fun     jug_ai)
  80.     (constructor jug_cons)
  81.     (get_cache_list_fun explo_damage_cache)
  82.     (damage_fun explo_damage))
  83.   (flags (hurtable T))
  84.   (abilities (start_hp    50)
  85.          (push_xrange 1))
  86.   (vars throw_xvel throw_yvel stationary)
  87.   (fields ("hp"            ai_health)
  88.       ("aitype"        jug_throw_spd)
  89.       ("throw_xvel"    jug_throw_xv)
  90.       ("throw_yvel"    jug_throw_yv)
  91.       ("stationary"    jug_stat)
  92.       ("aistate"       ai_state))
  93.  
  94.   (states "art/jug.spe" 
  95.       (stopped "robo0001.pcx")
  96.       (running (seq "rwlk" 1 13))
  97.       (weapon_fire (seq "robo" 1 10))
  98.       (dieing (seq "jugdie" 1 8))))
  99.  
  100. ;; AI for cleaner robot machine "ROB1"
  101. ;; The robot waits for a sensor/switch/gate to turn it
  102. ;; on before appearing
  103. (defun rob1_ai ()
  104.   (if (not (eq (fade_count) 0))             ;; appearing?
  105.       (set_fade_count (- (fade_count) 1)))  ;; fade in
  106.   (select (aistate)
  107.       (0 ;; wait for sensor to turn on
  108.        (if (eq rob_hiden 1)
  109.            (progn
  110.          (set_targetable nil)       ;; can't lock into us while hiden
  111.          (set_state rob_hiding))    ;; set invisible animation frame
  112.          (progn
  113.            (set_targetable T)           ;; can lock into us
  114.            (push_char 30 55)))          ;; push player away
  115.        
  116.        (if (or (< (total_objects) 1)    ;; if not linked or link is on
  117.            (not (eq (with_object (get_object 0) (aistate)) 0)))
  118.            (progn
  119.          (if (eq rob_hiden 1)
  120.              (set_fade_count 15))
  121.          (set_aistate 1)))
  122.        T)
  123.       (1 ;; walk towards player
  124.        (push_char 30 55)                      ;; push her back
  125.        (next_picture)                         ;; go to next animation frame
  126.        (if (eq (mod (state_time) 6) 0)        ;; play sound every 6 ticks
  127.            (play_sound CLEANER_SND 127 (x) (y)))
  128.        (try_move 0 10)                        ;; see how far ahead we can move
  129.        (if (> (direction) 0)                  ;; moving right
  130.            (if (can_see (x) (y) (+ (x) (xvel) 23) (y) nil)   ;; can we see 23 pixels ahead?
  131.              (set_x (+ (x) (xvel))))
  132.          (if (can_see (x) (y) (- (x) (xvel) 23) (y) nil)
  133.            (set_x (- (x) (xvel)))))
  134.  
  135.        (if (<= (hp) 0)                        ;; are we dead, if so blow up
  136.            (progn    
  137.          (add_object EXPLODE1 (+ (x) 5) (- (y) 10)     0)  
  138.          (add_object EXPLODE1 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
  139.          (add_object EXPLODE1 (+ (x) 10) (- (y) 2)     1)
  140.          (add_object EXPLODE1 (+ (x) -10) (- (y) 20)   3)
  141.          (add_object EXPLODE1 (+ (x) 20) (- (y) 27)    4)
  142.          (add_object EXPLODE1 (+ (x) -25) (- (y) 30)   2)
  143.          (add_object EXPLODE1 (+ (x) 20) (- (y) 5)     4)
  144.          (add_object EXPLODE1 (+ (x) -3) (- (y) 1)     5)
  145.          (set_aistate 2)))
  146.        T)
  147.       (2 ;; dead, wait a few frames then return nil
  148.        (push_char 30 55)
  149.        (< (state_time) 3))))  ;; return nil (dead) if we've been in this state for 3 frames
  150.       
  151.              
  152.  
  153. (defun explo_damage (amount from hitx hity push_xvel push_yvel)   
  154.   (add_object EXPLODE6 (+ (x) (- 10 (random 20))) (- (y) (random 30))     0)
  155.   (damage_fun amount from hitx hity 0 0)
  156.   (if (eq 0 (hp))
  157.       (play_sound BLOWN_UP 127 (x) (y))))
  158.  
  159. (defun rob_cons () (set_xvel 2))
  160.  
  161. (def_char ROB1
  162.   (range 200 0)
  163.   (funs (ai_fun     rob1_ai)
  164.     (constructor rob_cons)
  165.     (get_cache_list_fun explo_damage_cache)
  166.     (damage_fun explo_damage))
  167.   (flags (hurtable T)
  168.      (can_block T))
  169.   (abilities (run_top_speed 4)         
  170.          (start_hp      70)
  171.          (push_xrange   1))
  172.   (vars rob_hiden)
  173.   (fields ("xvel"         ai_xvel)
  174.       ("aitype"       rob_noturn)
  175.       ("rob_hiden"    rob_hide)
  176.       ("hp"           ai_health))
  177.   (states "art/rob1.spe" 
  178.       (rob_hiding             "hiding")
  179.       (stopped (seq "clen" 1 10))))
  180.  
  181. (defun who_ai ()
  182.   (if (eq (hp) 0)
  183.       nil
  184.     (progn
  185.       (set_xvel (+ (xvel) (* (+ (mod (state_time) 10) -4) (direction))))
  186.       (if (< (xvel) -15) (set_xvel -15))
  187.       (if (> (xvel) 15) (set_xvel 15))
  188.       (if (not (next_picture)) (set_state stopped))
  189.       (bounce_move '(progn
  190.               (set_direction (- 0 (direction)))
  191.               (set_state turn_around))
  192.            '(progn
  193.               (set_direction (- 0 (direction)))
  194.               (set_state turn_around))
  195.            nil nil nil)
  196.       T)))
  197.   
  198. (defun who_cache (type) `((,STRAIT_ROCKET) nil))
  199.  
  200. (def_char WHO
  201.   (range 200 100)
  202.   (funs (ai_fun flyer_ai)
  203.     (damage_fun  flyer_damage)
  204.     (get_cache_list_fun who_cache)
  205.     (constructor flyer_cons))
  206.  
  207.   (flags (hurtable T))
  208.   (abilities (start_hp 20))
  209.   (vars fire_delay burst_delay burst_total burst_wait burst_left 
  210.     max_xvel   max_yvel    smoke_time fire_time)
  211.   (fields ("fire_delay"   who_fdelay)
  212.       ("burst_delay"  who_bdelay)
  213.       ("burst_total"  who_btotal)
  214.       ("max_xvel"     who_mxv)
  215.       ("max_yvel"     who_myv)
  216.       ("hp"           ai_health)
  217.       ("aistate"      ai_state))
  218.  
  219.   (states "art/rob2.spe" 
  220.       (stopped (seq "wgo" 1 3))
  221.       (running (seq "wgo" 1 3))
  222.       (turn_around (seq "wtrn" 1 9))
  223.       (flinch_up  '("flinch" "flinch" "flinch"))
  224.       ))
  225.  
  226.  
  227. /*   --- not working
  228. (defun burst_fire (firex firey angle)
  229.   (if (> fire_time 0);; if we need to wait till next burst
  230.       (progn
  231.     (setq fire_time (- fire_time 1))
  232.     (if (eq fire_time 0)
  233.         (progn 
  234.           (setq burst_left burst_total)
  235.           (setq burst_wait 0))))
  236.     (if (eq burst_wait 0)
  237.     (progn
  238.       (if (or (eq burst_left 1) (eq burst_left 0))
  239.           (setq fire_time fire_delay)
  240.         (setq burst_left (- burst_left 1)))
  241.       (setq burst_wait burst_delay)
  242.       (fire_object (me) (aitype) firex firey angle (bg)))
  243.       (setq burst_wait (- burst_wait 1)))))
  244.  
  245.  
  246. (defun wrob_cons ()      
  247.   (setq fire_delay 4)
  248.   (setq burst_delay 1)
  249.   (setq max_xvel 10)
  250.   (setq max_yvel 5)
  251.   (set_aitype 0)
  252.   (setq burst_total 5))
  253.  
  254.  
  255. (defun wrob_ai ()
  256.   (if (eq (hp) 0)
  257.       nil
  258.     (progn
  259.       (select (aistate)
  260.           (0;; walk toward player
  261.            (if (or (> (distx) 120) (not (eq (direction) (toward))))
  262.            (progn
  263.              (move (toward) 0 0)
  264.              (next_picture))
  265.          (progn
  266.            (set_state stopped)
  267.            (set_aistate 1))))
  268.           (1;; stop and fire
  269.            (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)              
  270.                 (if (> (direction) 0)
  271.                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
  272.                   (+ 165 (/ (* burst_left 30) burst_total))))
  273.            (if (not (eq fire_time 0))
  274.            (set_aistate 0))))
  275.       T)))
  276.           
  277.     
  278.  
  279.  
  280. (def_char WALK_ROB
  281.   (funs (ai_fun wrob_ai)
  282.     (constructor wrob_cons)    
  283.     (damage_fun  guner_damage))
  284.   (abilities (run_top_speed 12))
  285.   (flags (hurtable T) (can_block T))
  286.   (range 300 100)
  287.   (vars fire_delay burst_delay burst_total burst_wait burst_left 
  288.     max_xvel   max_yvel    smoke_time fire_time)
  289.   (fields ("fire_delay"   wrob_fdelay)
  290.       ("burst_delay"  wrob_bdelay)
  291.       ("burst_total"  wrob_btotal)
  292.       ("max_xvel"     wrob_mxv)
  293.       ("max_yvel"     wrob_myv)
  294.       ("hp"           ai_health)
  295.       ("aistate"      ai_state))
  296.  
  297.   (states "art/rob2.spe" 
  298.       (stopped "wwlk0001.pcx")
  299.       (running (seq "wwlk" 1 10))
  300.       (start_run_jump "wstart_jump")
  301.       (flinch_up      "wflinch")
  302.       (run_jump       "wwlk0009.pcx")
  303.       ))
  304.  
  305.  
  306.  
  307. */